home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / DCLAP 6d / dclap6d / DNet / DURL.cpp < prev    next >
Encoding:
Text File  |  1996-07-05  |  10.9 KB  |  425 lines  |  [TEXT/R*ch]
  1. // DURL
  2. // d.g.gilbert, Sep.94
  3.  
  4. #include <ncbi.h>
  5. #include <dgg.h>
  6.  
  7. #include <DFile.h>
  8. #include "DTCP.h"
  9. #include "DNetObject.h"
  10. #include "DGoClasses.h"
  11. #include "DURL.h"
  12.  
  13.  
  14.  
  15.  
  16. // DURL ------------------------------
  17.  
  18.  
  19. DURL::DURL()
  20. {
  21. }
  22.  
  23.  
  24. short DURL::IsURL( const char *line, char*& url, long maxline)
  25. {    // adapated from Lynx
  26.   char *cp, *lineend;
  27.     
  28.   // don't crash on an empty argument 
  29.   if (line == NULL || *line == '\0') return(DNetOb::kUnknownProt);
  30.     if (maxline) lineend = (char*)line + maxline;
  31.     else lineend= StrChr( (char*)line,'\0');
  32.     
  33.     
  34.     /// god damn over duplication -- combine this w/ NetOb's list of protos
  35.     
  36.     
  37.     for (cp= (char*)line; cp < lineend && *cp!= ':'; cp++) ;
  38.     if (*cp != ':') { url= (char*)line; return(DNetOb::kUnknownProt); }
  39.     else if (cp[1] != '/' && cp[2] != '/') {
  40.       // these are only ones that don't contain "://"  
  41.       if (!Nlm_StrNICmp( (url=cp-4),"news",4))                    return(DNetOb::kNNTPprot);
  42.       else if (!Nlm_StrNICmp( (url=cp-6),"mailto",6))        return(DNetOb::kSMTPprot);
  43.       else if (!Nlm_StrNICmp( (url=cp-5),"whois",5))        return(DNetOb::kWhoisprot);
  44.       else if (!Nlm_StrNICmp( (url=cp-6),"finger",6))        return(DNetOb::kFingerprot);
  45.       else if (!Nlm_StrNICmp( (url=cp-4),"nntp",4))            return(DNetOb::kNNTPprot);
  46.       else if (!Nlm_StrNICmp( (url=cp-9),"newspost",8))    return(DNetOb::kUnsupportedProt);
  47.         else     {  
  48.           while (cp>line && isalpha(cp[-1])) cp--;
  49.           url= cp;
  50.           return(DNetOb::kUnknownProt); 
  51.           }
  52.         }
  53.  
  54.   else if (!Nlm_StrNICmp( (url=cp-6),"gopher",6))        return(DNetOb::kGopherprot);
  55.   else if (!Nlm_StrNICmp( (url=cp-4),"http",4))            return(DNetOb::kHTTPprot);
  56.   else if (!Nlm_StrNICmp( (url=cp-3),"bop",3))            return(DNetOb::kBOPprot);
  57.   else if (!Nlm_StrNICmp( (url=cp-3),"pop",3))            return(DNetOb::kPOPprot);
  58.   else if (!Nlm_StrNICmp( (url=cp-3),"ftp",3))             return(DNetOb::kFTPprot);
  59.   else if (!Nlm_StrNICmp( (url=cp-4),"file",4))             return(DNetOb::kFileprot);
  60.   else if (!Nlm_StrNICmp( (url=cp-4),"wais",4))             return(DNetOb::kWAISprot);
  61.   else if (!Nlm_StrNICmp( (url=cp-6),"telnet",6))        return(DNetOb::kTelnetprot);
  62.   else if (!Nlm_StrNICmp( (url=cp-6),"tn3270",6))        return(DNetOb::kTN3270prot);
  63.   else if (!Nlm_StrNICmp( (url=cp-6),"rlogin",6))         return(DNetOb::kUnsupportedProt);
  64.   else if (!Nlm_StrNICmp( (url=cp-3),"afs",3))             return(DNetOb::kUnsupportedProt);
  65.   else if (!Nlm_StrNICmp( (url=cp-8),"prospero",8))    return(DNetOb::kUnsupportedProt);
  66.         // !! Need also to support User-Added protocols via Type/Handler method !
  67.   else    { 
  68.       while (cp>line && isalpha(cp[-1])) cp--;
  69.       url= cp;
  70.       return(DNetOb::kUnknownProt); 
  71.       }
  72. }
  73.  
  74.  
  75.  
  76. // from Lynx
  77.  
  78. /*        Escape undesirable characters using %        HTEscape()
  79. **        -------------------------------------
  80. **
  81. **    This function takes a pointer to a string in which
  82. **    some characters may be unacceptable unescaped.
  83. **    It returns a string which has these characters
  84. **    represented by a '%' character followed by two hex digits.
  85. **
  86. **    In the tradition of being conservative in what you do and liberal
  87. **    in what you accept, we encode some characters which in fact are
  88. **    allowed in URLs unencoded -- so DON'T use the table below for
  89. **    parsing! 
  90. **
  91. **    Unlike HTUnEscape(), this routine returns a malloced string.
  92. **
  93. */
  94.  
  95.     
  96. static unsigned char isAcceptable[96] =
  97. /* Overencodes */
  98. /*    Bit 0        alphaChars        -- see HTFile.h
  99. **    Bit 1        alphaPlusChars -- as alphaChars but with plus.
  100. **    Bit 2 ...    pathChars        -- as alphaPlusChars but with /
  101. */
  102. /* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
  103. {  0,0,0,0,0,0,0,0,0,0,7,6,0,7,7,4,    /* 2x   !"#$%&'()*+,-./     */
  104.      7,7,7,7,7,7,7,7,7,7,0,0,0,0,0,0,    /* 3x  0123456789:;<=>?     */
  105.      7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,    /* 4x  @ABCDEFGHIJKLMNO  */
  106.      7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,7,    /* 5X  PQRSTUVWXYZ[\]^_     */
  107.      0,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,    /* 6x  `abcdefghijklmno     */
  108.      7,7,7,7,7,7,7,7,7,7,7,0,0,0,0,0 };    /* 7X  pqrstuvwxyz{\}~    DEL */
  109.  
  110. #define OKAYCHAR(a,mask)    ( a>=32 && a<128 && ((isAcceptable[a-32]) & mask))
  111.  
  112. char* DURL::EncodeChars( const char* str, unsigned char mask)
  113. {
  114.     static char *hexchars = "0123456789ABCDEF";
  115.   const char * p;
  116.   char * q;
  117.   char * result;
  118.   int unacceptable = 0;
  119.  
  120.   for (p=str; *p; p++)
  121.          if (!OKAYCHAR( (unsigned char)*p, mask)) 
  122.             unacceptable++;
  123.   result = (char *) MemNew( p - str + unacceptable + unacceptable + 1);
  124.   if (result == NULL) return "";
  125.  
  126.   for (q=result, p=str; *p; p++) {
  127.       unsigned char a = *p;
  128.         if (!OKAYCHAR(a, mask)) {
  129.         *q++ = HEX_ESCAPE;    
  130.         *q++ = hexchars[a >> 4];
  131.         *q++ = hexchars[a & 15];
  132.             }
  133.         else *q++ = *p;
  134.       }
  135.   *q++ = 0;            
  136.   return result;
  137. }
  138.  
  139.  
  140. /*        Decode %xx escaped characters            HTUnEscape()
  141. **        -----------------------------
  142. **
  143. **    This function takes a pointer to a string in which some
  144. **    characters may have been encoded in %xy form, where xy is
  145. **    the acsii hex code for character 16x+y.
  146. **    The string is converted in place, as it will never grow.
  147. */
  148.  
  149. static char from_hex(char c)
  150. {
  151.     return  c >= '0' && c <= '9' ?  c - '0' 
  152.             : c >= 'A' && c <= 'F'? c - 'A' + 10
  153.             : c - 'a' + 10;     
  154. }
  155.  
  156. //static
  157. char* DURL::DecodeChars( char * str)
  158. {
  159.   char * p = str;
  160.   char * q = str;
  161.  
  162.   if (!str) return "";
  163.   while(*p) {
  164.        if (*p == HEX_ESCAPE) {
  165.         p++;
  166.         if (*p) *q  = from_hex(*p++) * 16;
  167.          if (*p) *q += from_hex(*p++);
  168.       q++;
  169.             } 
  170.    else 
  171.         *q++ = *p++; 
  172.      }
  173.   *q++ = 0;
  174.   return str;
  175. } 
  176.  
  177.  
  178. char* DURL::GetParts( const char* url, long whichparts, long urlsize)
  179. {
  180.     char *cp, *ep, sep, *newurl, *line, *newline;
  181.     
  182.   if (url == NULL || *url == '\0') return NULL;
  183.     if (!urlsize) urlsize= StrLen(url);
  184.     line= (char*) Nlm_MemNew(urlsize+1);
  185.     Nlm_MemCopy(line, url, urlsize);
  186.   line[urlsize]= 0;
  187.     newline= (char*) Nlm_MemNew(urlsize+1);
  188.   *newline= 0;
  189.   
  190.     long prot= IsURL( line, newurl);
  191.     cp= newurl;
  192.     ep= StrChr( newurl+3, ':');
  193.     if (ep) ep++;
  194.     if (*ep == '/') ep++;
  195.     if (*ep == '/') ep++;
  196.     if (whichparts & kPartProtocol) {
  197.         sep= *ep; *ep= 0;
  198.         StrCat( newline, cp);
  199.         *ep= sep;
  200.         }
  201.     cp= ep;
  202.     
  203.     while (isspace(*cp)) cp++;
  204.     ep= cp;
  205.     while ( *ep && (OKAYCHAR(*ep, alphaPlusChars)) ) ep++;
  206.     //while (*ep && (isalnum(*ep) || *ep == '.')) ep++;
  207.     while (isspace(*ep)) ep++;
  208.     if (whichparts & kPartHost) {
  209.         sep= *ep; *ep= 0;
  210.         StrCat( newline, cp);        
  211.         *ep= sep;
  212.         }
  213.     cp= ep;  
  214.  
  215.     if (*cp == ':') {    // port num
  216.         ep = cp + 1;
  217.         while (isspace(*ep)) ep++;
  218.         while (isdigit(*ep)) ep++;
  219.         if (whichparts & kPartPort) {
  220.             sep= *ep; *ep= 0;
  221.             StrCat( newline, cp);        
  222.             *ep= sep;
  223.             }
  224.         cp= ep;  
  225.         }        
  226.     while (isspace(*cp)) cp++;
  227.  
  228.     if (*newline && *cp == '/') {
  229.         StrCat( newline, "/");        
  230.         }
  231.         
  232.     if (whichparts & kPartPath) {
  233.         if (*cp == '/') cp++;
  234.         StrCat( newline, cp);        
  235.         }
  236.  
  237.     MemFree( line);
  238.     return newline;
  239. }
  240.  
  241.  
  242.  
  243. Boolean DURL::ParseURL( DNetOb* nob, const char *url, long urlsize, Boolean verbatim)
  244. {
  245.   char *cp, *ep, *qp, sep, *line, *newurl;
  246.     short prot;
  247.     Boolean isLocalhost;
  248.     
  249.   if (!nob || url == NULL || *url == '\0') return false;
  250.   if (!urlsize) urlsize= StrLen(url);
  251.  
  252.       // can we do this space check safely?
  253.   newurl= (char*)url;  while (isspace(*newurl)) { newurl++; urlsize--; }
  254.   ep= newurl + urlsize - 1;  while (isspace(*ep)) { ep--; urlsize--; }
  255.   
  256.     line= (char*) Nlm_MemNew(urlsize+1);
  257.     Nlm_MemCopy(line, newurl, urlsize);
  258.   line[urlsize]= 0;
  259.     prot= IsURL( line, newurl);
  260.     if (prot <= DNetOb::kUnknownProt) {
  261.         MemFree( line);
  262.         return false;
  263.         }
  264.     else {
  265.         // need to drop "", '', <> or other delimiters from url end
  266.         // also filter out newlines, controls, and spaces unless "" or ''
  267.         {
  268.             cp= newurl;
  269.             if (cp>line) do { cp--; } while (cp>line && !isgraph(*cp));
  270.             ep= cp;
  271.             switch (*cp) {
  272.                 case '"': 
  273.                     newurl= cp+1;  
  274.                     do { if (isprint(*cp)) *ep++= *cp; cp++; } while (*cp && *cp!='"');
  275.                     *ep= 0;
  276.                     break;
  277.                 case '\'':
  278.                     newurl= cp+1;  
  279.                     do { if (isprint(*cp)) *ep++= *cp; cp++; } while (*cp && *cp!='\'');
  280.                     *ep= 0;
  281.                     break;
  282.                 case '<':
  283.                     newurl= cp+1; 
  284.                     if (verbatim)
  285.                         do { if (isprint(*cp)) *ep++= *cp; cp++; } while (*cp && *cp!='>');
  286.                     else 
  287.                         do { if (isgraph(*cp)) *ep++= *cp; cp++; } while (*cp && *cp!='>');
  288.                     *ep= 0;
  289.                     break;
  290.                 default:
  291.                     newurl= cp;  
  292.                     if (verbatim)
  293.                         do { if (isprint(*cp)) *ep++= *cp; cp++; } while (*cp);
  294.                     else 
  295.                         do { if (isgraph(*cp)) *ep++= *cp; cp++; } while (*cp);
  296.                     *ep= 0;
  297.                     break;
  298.                 }
  299.             }
  300.         nob->StoreProtocol( prot);
  301.          nob->StoreURL(newurl);
  302.         cp= StrChr(newurl+3,':');
  303.         cp++;
  304.         if (*cp == '/') cp++;
  305.         if (*cp == '/') cp++;
  306.         while (isspace(*cp)) cp++;
  307.         if (prot == DNetOb::kSMTPprot) {
  308.             DecodeChars(cp);
  309.             nob->fType= kMailType; // mailto gopher kind  
  310.             nob->StorePath(cp);
  311.             MemFree( line);
  312.             return true;
  313.             }
  314.             
  315.         ep= cp;
  316.         while ( *ep && (OKAYCHAR(*ep, alphaPlusChars)) ) ep++;
  317.         //while (*ep && (isalnum(*ep) || *ep == '.' || *ep == '-')) ep++;
  318.  
  319.          while (isspace(*ep)) ep++;
  320.         sep= *ep; *ep= 0;
  321.         isLocalhost = (ep - cp < 2); // || StrICmp( cp, "localhost")==0 );
  322.         nob->StoreHost( cp);    
  323.         *ep= sep;
  324.         cp= ep; // NO: +1;
  325.  
  326.         if (sep == ':') {    // port num
  327.             ep= ++cp;
  328.             while (isspace(*ep)) ep++;
  329.             while (isdigit(*ep)) ep++;
  330.             sep= *ep; *ep= 0;
  331.             nob->StorePort( cp);    
  332.             *ep= sep;
  333.             cp= ep; //+1;
  334.             }        
  335.         if (sep == '/') ;
  336.         while (isspace(*cp)) cp++;
  337.  
  338.         qp= StrChr(cp, '?');
  339.         if (qp) {
  340.             *qp++= 0;
  341.             nob->fQueryGiven= StrDup(qp);
  342.             }
  343.             
  344.         DecodeChars(cp);    // ???
  345.  
  346.         switch (prot) {
  347.             case DNetOb::kGopherprot: // gopher://host.name:70/00/path/to/data
  348.                 if (*cp) cp++;
  349.                 if (*cp == 0) {
  350.                     nob->fType= kTypeFolder;  
  351.                     nob->StorePath(""); 
  352.                     }
  353.                 else {
  354.                     nob->fType= *cp;  
  355.                     nob->StorePath( cp+1); 
  356.                     }
  357.                 break;
  358.                 
  359.             case DNetOb::kFTPprot: // file:///path:to:file
  360.             case DNetOb::kFileprot: // file:///path:to:file
  361.                 if (*cp == '/') {          
  362.                         // this leading slash is artifact of silly url syntax !!
  363.                         // skip for all????? but sometimes (non-local) this is valid
  364. #if 1
  365.                     if (isLocalhost) cp++;
  366. #else
  367. #ifdef OS_VMS
  368.                     cp++; // vms, skip leading /
  369. #endif
  370. #ifdef OS_MAC
  371.                     cp++; // mac, skip leading /
  372. #endif
  373. #ifdef OS_DOS
  374.                     if (StrChr(cp,':')) cp++; // have "/C:\dos\path" form
  375.                     else *cp= '\\'; // have a "/dos\path" form
  376. #endif
  377. #endif
  378.                     }
  379.                 nob->fType= kTypeFile;  // !! need ftp folder handling !?
  380.                 nob->StorePath( cp);  
  381.                 break;
  382.  
  383.             case DNetOb::kHTTPprot:    // http://host.name:80/path/to/data
  384.                 nob->fType= kTypeHtml;  
  385.                 if (*cp == 0) nob->StorePath( "/");
  386.                 else nob->StorePath( cp);  
  387.                 break;
  388.  
  389.             case DNetOb::kTelnetprot:
  390.                 nob->fType= kTypeTelnet;  
  391.                 nob->StorePath( cp);  
  392.                 break;
  393.             case DNetOb::kTN3270prot:
  394.                 nob->fType= kTypeTn3270;  
  395.                 nob->StorePath( cp);  
  396.                 break;
  397.  
  398.             case DNetOb::kFingerprot:
  399.             case DNetOb::kWhoisprot:
  400.                 nob->fType= kTypeQuery;  
  401.                 nob->StorePath( cp);  
  402.                 break;
  403.             
  404.             case DNetOb::kWAISprot: // ?? or need Folder type or Waisdir & WaisDoc types?
  405.             default:
  406.                 nob->fType= kTypeFile;  
  407.                 nob->StorePath( cp);  
  408.                 break;
  409.             }
  410.             
  411.                 // set a usable title !?
  412.         const char *name= nob->GetPath();
  413.         if ( name == NULL || *name == 0 || StrCmp(name, "/") == 0) 
  414.             name= nob->GetHost();
  415.         else 
  416.             name= gFileManager->FilenameFromPath(name);
  417.         if ( name && *name != 0 ) 
  418.             nob->StoreName( (char*)name);  
  419.              
  420.         }
  421.     
  422.     MemFree( line);
  423.     return true;
  424. }
  425.